home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-13 / amac44b.zip / QLST@3.QM < prev    next >
Text File  |  1992-05-27  |  3KB  |  60 lines
  1. *                               qlst@3.qm
  2. *               Macro To Load a File List of Files In Ring
  3. *                                 5/18/92
  4.  
  5. * 
  6. * ----------------------------------------------------------------------
  7. * @(3)  Load File List In Ring,
  8. *       Read First File In Filelist Macro If It Exists,
  9. *       User Selects File To Load From ListFiles Prompt,
  10. *       Makes Paragraph of File List For Faster Loading
  11. * ----------------------------------------------------------------------
  12. *       See QLSTnn.QM for this macro's description.
  13.  
  14. @3      macrobegin
  15.         setscreenoff                    * Turn screen off for less flicker
  16.         endfile markline begfile        * Mark file list                   *|
  17. * ---------------------- Copy File List To Nul ----------------------*     *|a
  18.         editfile "Nul" return           * Load Nul for faster loading      *|
  19.         copyblock unmarkblock           * Copy file list to Nul            *|
  20. * ------------ Makes File List Paragraph For Fast Loading ------------*
  21.     LOOP:
  22.         endline begline                 * Test if empty line
  23.     jtrue NOEMPTY
  24.         delline jtrue LOOP              * Delete all empty line 'til no more
  25.     NOEMPTY:
  26.         endpara                         * Move end of para
  27.         cursordown jtrue LOOP           * Loop 'til no more empty lines
  28.         begfile                         * Pos to format
  29.         setrmargin "60" return          * Set margin for fast load
  30.         wrappara                        * Format file list as para
  31.         setrmargin "80" return          * Reset right margin to "80"
  32. * ---------------------- Load File List In Ring ----------------------*
  33.     LOAD:
  34.         setscreenon setscreenoff        * Turn screen on/off to see loading
  35.         markline                        * Mark file name at cursor
  36.         copy                            * Copy file name to scrap
  37.         editfile currentfilename " "    * Load current file plus
  38.         paste return                    * last marked on list into ring
  39.         cursorup                        * Move up to next file in list
  40.     jtrue LOAD                          * Continue loading until top of list
  41.         quit                            * Quit formatted Nul file list
  42. * ------------------- Load First File in Window 2 -------------------*
  43.         nextfile                        * Load first file in list
  44. * ---------------- Read Macros of First File in List ----------------*
  45.         macroread                       * Read first file's macros if exist
  46.             currentfilename             * Insert currentfilename
  47.             backspace backspace         * Remove 2 letter extension
  48.             "mac" return                * Replace with "mac" extension
  49.         escape escape                   * Removes error prompt if first
  50.                                         * file does not have a macro file
  51.         setscreenon                     * Turn on to see ListFiles' prompt
  52. * ------------------- Select Another File To Load -------------------*
  53.         listfiles                       * Select file to load from list
  54. *
  55. * 53 bytes Mon  02-17-1992  16:17:23 (TH @f2)
  56. * 66 bytes Mon  04-20-1992  09:28:04 (TH @f2, from RINGnn.QM)
  57. * 77 bytes Thu  05-07-1992  10:00:47 (TH @3, added Nul *|a)
  58.  
  59.  
  60.